﻿Public Partial Class _Boolean
    Inherits Catalyst.Web.DynamicData.EqualsFilterUserControlBase

    Public Overrides Property Value() As String
        Get
            Return CheckBox1.Checked.ToString()
        End Get
        Set(ByVal value As String)
            Dim val As Boolean
            If Boolean.TryParse(value, val) Then
                CheckBox1.Checked = val
            End If
        End Set
    End Property

    Public Overrides ReadOnly Property ValueType() As System.TypeCode
        Get
            Return TypeCode.Boolean
        End Get
    End Property

End Class